null {10}C=-24576;D=C+2;E=%(20050)-6;F=32080;H=32050;N=0;@(0)=%(C)
32000 for A=Dto E;if %(A)div 256#13next A
32010 N=N+1;A=A+2;@(N)=%(A);next A
32020 input ".FL#"O,".SP"G;:print ;M=0;gosub F;for A=Dto E;TV=%(A);B=%(A)div 256;if (RM=13)+(RM=-243)gosub F
32030 if (RM=110)+(RM=111)gosub H
32040 next A;print ;STOP
32050 T=0;for B=Ato A+5;if (%(B)div 256-53)div 6=0 T=Tmul 10+RM+5;A=A+1;next B
32060 for B=0to N;if @(B)=Tprint #0,Bmul G+O,;return 
32070 next B;return 
32080 print #4,Mmul G+O,;TV=32;M=M+1;A=A+2;return 